home *** CD-ROM | disk | FTP | other *** search
/ PC-SIG: World of Games / PC-SIG World of Games (CDRM1080710) (1993).iso / 329 / CRAPS.BAS (.txt) < prev    next >
Encoding:
GW-BASIC  |  1985-03-16  |  1.4 KB  |  51 lines
  1. 1  CLS:PRINT:PRINT:PRINT "    C R A P S"
  2. 11  PRINT "IF A PLAYER ROLLS A 2,3 OR 12 ON HIS FIRST ROLL. HE LOSES."
  3. 21  PRINT "A 7 OR 11 ON THE FIRST ROLL IS AUTOMATIC WIN."
  4. 31  PRINT "OTHERWISE, THE DICE ARE ROLLED UNTIL THE TOTAL OF THE"
  5. 41  PRINT "FIRST ROLL IS ROLLED AGAIN, IN WHICH CASE THE PLAYER"
  6. 51  PRINT "WINS OR A 7 OR 11 IS ROLLED, I NWHICH CASE THE PLAYER"
  7. 61  PRINT "CRAPS OUT(LOSES)."
  8. 71  B=500
  9. 81  PRINT "IN YOUR ACCOUNT IS: $";B
  10. 91  PRINT "$5000 THE BANK GOES UNDER"
  11. 101  INPUT "HOW MUCH DO YOU WISH TO WAGER";C
  12. 111  IF C>B THEN PRINT "YOU DO NOT HAVE THAT MUCH":GOTO 81
  13. 121  IF C<=0 GOTO 81
  14. 131  INPUT "PRESS ENTER FOR YOUR FIRST ROLL";A$
  15. 141  CLS:PRINT"FIRST ROLL:"
  16. 151  Y=INT(RND*6):Z=INT(RND*6)
  17. 161  PRINT:PRINT Y;Z:PRINT
  18. 171  T=Y+Z:PRINT "TOTAL ----";T
  19. 181  IF T=2 OR T=3 OR T=12 THEN GOTO 301
  20. 191  IF T=7 OR T=11 THEN GOTO 401
  21. 201  PRINT T;"IS YOUR POINT"
  22. 211  INPUT "PRESS ENTER FOR YOUR NEXT ROLL";A$:CLS
  23. 221  Y=INT(RND*6):Z=INT(RND*6):U=Y+Z
  24. 231  PRINT "ROLL:":PRINT
  25. 241  PRINT Y;Z"PRINT
  26. 251  PRINT "TOTAL ---";U
  27. 261  IF U=T GOTO 421
  28. 271  IF U=7 OR U=11 GOTO 351
  29. 281  PRINT "NOT YOU POUNT, KEEP ROLLLING THE BONES"
  30. 291  GOTO 211
  31. 301  IF T=2 THEN PRINT "SNAKE EYES!"
  32. 311  IF T=3 THEN PRINT "COCK EYES!"
  33. 321  IF T=12 THEN PRINT "BOXCARS!"
  34. 331  GOTO 361
  35. 341  REM
  36. 351  PRINT "YOU CROPPED OUT!!:"
  37. 361  PRINT "YOU LOSE YOUR BET":B=B-C
  38. 371  IF B<=0 GOTO 461
  39. 381  GOTO 81
  40. 391  REM
  41. 401  PRINT "A NATURAL"
  42. 411  GOTO 431
  43. 421  PRINT "YES! YOU HIT YOUR POINT"
  44. 431  PRINT "YOU WIN YOU BET":B=B+C
  45. 441  IF B>=5000 GOTO 481
  46. 451  GOTO 81
  47. 461  PRINT "AND YOU ARE OUT OF MONEY. TOO BAD"
  48. 471  END
  49. 481  PRINT "HEY!! YOU HAVE BROKEN THE BANK WITH $";B
  50. 491  END
  51.